home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / 123w20.zip / LDATE.BAS < prev    next >
BASIC Source File  |  1990-11-15  |  208b  |  17 lines
  1. DEFINT A-Z
  2.  
  3. SUB lDate (dat$)
  4.  
  5.     CALL ldate1(dat$, a&)
  6.  
  7.     IF a& <= 0 THEN
  8.         CALL lWriteStr(dat$, errCode)
  9.         EXIT SUB
  10.     END IF
  11.  
  12.     c# = CDBL(a&)
  13.     CALL ldate2(c#)
  14.  
  15. END SUB
  16.  
  17.